home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / lib / blb / mousep16.blb < prev    next >
Text File  |  1995-02-17  |  1KB  |  21 lines
  1. 60400 '------------------- マウスカーソル形状設定 ver 1.60 中解像度16色画面専用 ----------------------
  2. 60401 '入力 mousepat = マウスパターン番号
  3. 60402 '                (0=通常 1=時計 2=鉛筆 3=手 4=毛抜き 5=スポイト 6=指 7=筆 8=カッター)
  4. 60403 '                ( 負数はアイコン番号(絶対値)。絵柄については TOWNS GEARﾃﾞｨｸｼｮﾅﾘ参照)
  5. 60404 '                (         ただし､負数を指定したときは読み取り位置の補正は行われない)
  6. 60405 '要 MOUSEPAT.DAT
  7. 60406 *BLB_MOUSEPAT
  8. 60407  IF BLB_MOUSEPAT%=0 THEN
  9. 60408   DIM BLB_MOUSEPATTERN&(16385):LOAD@"MOUSEPAT.DAT",BLB_MOUSEPATTERN&
  10. 60409   DIM BLB_MA&(31),BLB_MD&(127):BLB_MOUSEPAT%=1:MOUSE 0:MOUSE 1,320,240,0
  11. 60410  ENDIF
  12. 60411  MOUSE 3,0,INP(&H3B06):MOUSE 3,1,INP(&H3B06)
  13. 60412  IF MOUSEPAT<0 THEN *BLB_MOUSEPAT2
  14. 60413  FOR I%=0 TO 31:BLB_MA&(I%)=PEEK([264]&H2D080+I%*4+MOUSEPAT*256,4):NEXT
  15. 60414  FOR I%=0 TO 127:BLB_MD&(I%)=BLB_MOUSEPATTERN&((MOUSEPAT+80)*128+I%):NEXT
  16. 60415  MOUSE 6,1,BLB_MA&,BLB_MD&,ASC(MID$("1?1:21111",MOUSEPAT+1))-48,ASC(MID$("1?1:L111N",MOUSEPAT+1))-48:MOUSE 1,,,1:RETURN
  17. 60416 *BLB_MOUSEPAT2
  18. 60417  FOR I%=0 TO 31:BLB_MA&(I%)=PEEK([264]&H27F80+I%*4-MOUSEPAT*256,4):NEXT
  19. 60418  FOR I%=0 TO 127:BLB_MD&(I%)=BLB_MOUSEPATTERN&(I%-128-MOUSEPAT*128):NEXT
  20. 60419  MOUSE 6,1,BLB_MA&,BLB_MD&,15,15:MOUSE 1,,,1:RETURN
  21.